home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / mus / misc / spcli.lha / SongPlayerCLI / Rexx / SpCLI / Add.rexx next >
Encoding:
OS/2 REXX Batch file  |  2000-08-24  |  619 b   |  31 lines
  1. /* 
  2. SongPlayerCLI v1.52 (by Gareth Griffiths)
  3. E-Mail: gazchap@btinternet.com
  4. Add.rexx - Add's a file to the playlist.
  5. */
  6.  
  7. IF ~SHOW('P','SONGPLAYER.1') THEN DO
  8.     ADDRESS COMMAND
  9.     SAY "Can't find ARexx port 'SONGPLAYER.1'"
  10.     EXIT
  11. END
  12.  
  13. IF ~SHOW('P','SONGPLAYER.1') THEN DO;EXIT;END
  14.  
  15. OPTIONS RESULTS
  16. PARSE ARG path
  17. ADDRESS COMMAND
  18. IF path = "" THEN DO
  19.     OPTIONS PROMPT 'Enter Filepath: '
  20.     PULL path
  21. END
  22. ADDRESS SONGPLAYER.1
  23. 'ADD 'path
  24. 'GET_COUNT';last=result;'SELECT 'last
  25. 'GET_TITLE';title=result
  26. 'GET_ARTIST';artist=result
  27. 'GET_SELECTED';index=result
  28. 'PLAY'
  29. ADDRESS COMMAND
  30. SAY 'Current File: ('index') 'artist': 'title
  31. EXIT